//---------------------------------
//in----4位二进制数
//isprime----若in为素数2，3，5，7，11或13，则为真
//---------------------------------
module prime(in,isprime);
  input [3:0] in; //4位输入
  output isprime; //若为素数，则为真
  reg isprime;
  always @(in) begin
    case(in)
      2,3,5,7,11,13: isprime = 1'b1;
      default: isprime=1'b0;
    endcase
  end
endmodule


